inherited StoreTopicFrame: TStoreTopicFrame
  Width = 225
  Height = 500
  ExplicitWidth = 225
  ExplicitHeight = 500
  object Tree: TTreeView
    Left = 0
    Top = 0
    Width = 225
    Height = 500
    Align = alClient
    Images = ProgramModule.ImageList
    Indent = 19
    TabOrder = 0
    OnClick = TreeClick
  end
  object Divisions: TSQLDataSet
    SchemaName = 'sysdba'
    GetMetadata = False
    CommandText = 
      'select'#13#10'osakond,'#13#10'grupp,'#13#10'count(*) as arv'#13#10'from tooted'#13#10'group by' +
      ' osakond, grupp'#13#10'order by osakond, grupp'
    MaxBlobSize = -1
    Params = <>
    SQLConnection = ProgramModule.Connection
    Left = 80
    Top = 128
    object DivisionsOSAKOND: TStringField
      FieldName = 'OSAKOND'
      Required = True
      Size = 50
    end
    object DivisionsGRUPP: TStringField
      FieldName = 'GRUPP'
      Required = True
      Size = 50
    end
    object DivisionsARV: TIntegerField
      FieldName = 'ARV'
      Required = True
    end
  end
end
